This dataset is described on p. 10 of the textbook. You may load it from the dataset URL linked above or from the resampledata package.
library(tidyverse)
DATA <- read_csv("https://raw.githubusercontent.com/STAT-JET-ASU/Datasets/master/Chihara/Spruce.csv")
glimpse(DATA)Observations: 72
Variables: 9
$ Tree <dbl> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17…
$ Competition <chr> "NC", "NC", "NC", "NC", "NC", "NC", "NC", "NC", "NC", "NC…
$ Fertilizer <chr> "F", "F", "F", "F", "F", "F", "NF", "NF", "NF", "NF", "NF…
$ Height0 <dbl> 15.0, 9.0, 12.0, 13.7, 12.0, 12.0, 16.8, 14.6, 16.0, 15.4…
$ Height5 <dbl> 60.0, 45.2, 42.0, 49.5, 47.3, 56.4, 43.5, 49.2, 54.0, 45.…
$ Diameter0 <dbl> 1.984375, 1.190625, 1.785937, 1.587500, 1.587500, 1.58750…
$ Diameter5 <dbl> 7.4, 5.2, 5.7, 6.4, 6.2, 7.4, 4.9, 5.4, 7.1, 5.1, 4.1, 7.…
$ Ht.change <dbl> 45.0, 36.2, 30.0, 35.8, 35.3, 44.4, 26.7, 34.6, 38.0, 29.…
$ Di.change <dbl> 5.415625, 4.009375, 3.914062, 4.812500, 4.612500, 5.81250…head(DATA)# A tibble: 6 x 9
Tree Competition Fertilizer Height0 Height5 Diameter0 Diameter5 Ht.change
<dbl> <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl>
1 1 NC F 15 60 1.98 7.4 45
2 2 NC F 9 45.2 1.19 5.2 36.2
3 3 NC F 12 42 1.79 5.7 30
4 4 NC F 13.7 49.5 1.59 6.4 35.8
5 5 NC F 12 47.3 1.59 6.2 35.3
6 6 NC F 12 56.4 1.59 7.4 44.4
# … with 1 more variable: Di.change <dbl>